home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / Tools / Config.gc < prev    next >
Encoding:
Gui4CLI script  |  1980-01-03  |  2.4 KB  |  105 lines
  1. G4C
  2.  
  3. ; Ripped this off CliMaster..
  4.  
  5. WINBIG -1 -1 509 170  "Dir.gc Configuration"
  6. wintype 11110001
  7. ; note - use global variables
  8.  
  9. BOX 0 0 0 0 OUT ICONDROP
  10.  
  11. xonload
  12. setscreen Config.gc $*SCREEN
  13. gosub Config.gc loadprefs
  14. guiopen Config.gc
  15.  
  16. xonclose
  17. ifexists file env:.dir.prefs
  18.     delete env:.dir.prefs
  19. endif
  20. delvar  cgf_#?
  21. guiquit Config.gc
  22.  
  23. ; -------------- the listview
  24.  
  25. XLISTVIEW 6 4 497 125  "" cfg_lvline "" 0 txt
  26. gadid 1
  27. gadfont topaz.font 8 000
  28. cgf_lvnum = $$LV.LINE
  29. cutvar cfg_lvline cut word 1 cfg_var    ; get variable name
  30. cutvar cfg_lvline cut word 1 ""         ; cut off the = character
  31. extract cfg_lvline unquote cfg_prog     ; clean-up program name
  32. update Config.gc 2 $cfg_prog
  33. setgad Config.gc 2 on
  34.  
  35. ; -------------- The buttons
  36.  
  37. XBUTTON 8 131 101 16  "Save"
  38. gosub Config.gc saveprefs
  39. guiquit Config.gc
  40.  
  41.  
  42. XBUTTON 112 131 101 16  "Use"
  43. guiquit Config.gc
  44.  
  45.  
  46. XBUTTON 339 131 82 16  "««« Move"
  47. lvuse Config.gc 1
  48. lvmove -10
  49.  
  50.  
  51. XBUTTON 421 131 82 16  "Move »»»"
  52. lvuse Config.gc 1
  53. lvmove 10
  54.  
  55.  
  56. XTEXTIN 7 149 407 16  "" cfg_prog "" 512
  57. gadid 2
  58. gosub Config.gc updatelist
  59.  
  60.  
  61. XBUTTON 415 149 88 16  "Browse"
  62. reqfile -1 -1 300 -40 "Select File..." load cfg_prog SYS:
  63. update Config.gc 2 $cfg_prog
  64. setgad Config.gc 2 on
  65. gosub Config.gc updatelist
  66.  
  67.  
  68. ; -------------- Routines
  69.  
  70. xroutine loadprefs
  71. setvar .dir.prefs ""
  72. gosub Config.gc addprefs
  73. lvuse Config.gc 1
  74. lvchange env:.dir.prefs
  75.  
  76. xroutine saveprefs
  77. setvar .dir.prefs "G4C - Players\n\nxOnLoad\n"
  78. gosub  Config.gc addprefs
  79. append env:.dir.prefs "GuiQuit Players\n" 
  80. copy env:.dir.prefs guis:tools/prefs/players
  81.  
  82. xroutine addprefs
  83. append env:.dir.prefs 'DEF.EDITOR    = \"$DEF.EDITOR\"\n'
  84. append env:.dir.prefs 'DEF.MULTIVIEW = \"$DEF.MULTIVIEW\"\n'
  85. append env:.dir.prefs 'DEF.GUIDE     = \"$DEF.GUIDE\"\n'
  86. append env:.dir.prefs 'DEF.HEX       = \"$DEF.HEX\"\n'
  87. append env:.dir.prefs 'DEF.ILBM      = \"$DEF.ILBM\"\n'
  88. append env:.dir.prefs 'DEF.ANIM      = \"$DEF.ANIM\"\n'
  89. append env:.dir.prefs 'DEF.GIF       = \"$DEF.GIF\"\n'
  90. append env:.dir.prefs 'DEF.JPG       = \"$DEF.JPG\"\n'
  91. append env:.dir.prefs 'DEF.GFX       = \"$DEF.GFX\"\n'
  92. append env:.dir.prefs 'DEF.GFXCON    = \"$DEF.GFXCON\"\n'
  93. append env:.dir.prefs 'DEF.8SVX      = \"$DEF.8SVX\"\n'
  94. append env:.dir.prefs 'DEF.MOD       = \"$DEF.MOD\"\n'
  95. append env:.dir.prefs 'DEF.PP        = \"$DEF.PP\"\n'
  96.  
  97. xroutine updatelist
  98. setvar $cfg_var '$cfg_prog'
  99. setvar .dir.prefs ""
  100. gosub Config.gc addprefs
  101. lvuse Config.gc 1
  102. lvchange env:.dir.prefs
  103.  
  104.  
  105.